|
700
|
How can I filter the check-boxes (method 1)
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Check" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLECheckValueType
Set ComOption of hoEditor OLEexCheckValue2 to 1
Send Destroy to hoEditor
Set ComDisplayFilterButton of hoColumn to True
Set ComDisplayFilterPattern of hoColumn to False
Set ComFilterType of hoColumn to OLEexCheck
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems True to Nothing
Get ComAddItem of hoItems True to Nothing
Get ComAddItem of hoItems False to Nothing
Get ComAddItem of hoItems True to Nothing
Get ComAddItem of hoItems False to Nothing
Get ComAddItem of hoItems True to Nothing
Get ComAddItem of hoItems False to Nothing
Send Destroy to hoItems
End_Procedure
|
|
699
|
How can add a button to control
// Occurs when user clicks on the cell's button.
Procedure OnComButtonClick HITEM llItem Integer llColIndex Variant llKey
Forward Send OnComButtonClick llItem llColIndex llKey
Variant v
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComCellCaption of hoItems llItem llColIndex to v
Send Destroy to hoItems
Showln "ButtonClick" v llKey
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDefaultItemHeight to 22
Set ComHeaderHeight to 22
Set ComAppearance to OLENone2
Set ComDrawGridLines to OLEexRowLines
Set ComScrollBySingleLine to False
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComHTMLPicture "pic1" to "c:\exontrol\images\auction.gif"
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Type" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 48
Set ComDef of hoColumn OLEexCellValueFormat to 1
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Appearance" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellValueFormat to 1
Set ComAlignment of hoColumn1 to OLECenterAlignment
Set ComHeaderAlignment of hoColumn1 to OLECenterAlignment
Send Destroy to hoColumn1
Send Destroy to hoColumns
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant h
Get ComAddItem of hoItems1 "Items.<b>CellHasButton</b> property" to h
Set ComCellValue of hoItems1 h 1 to "Button <b>1</b>"
Set ComCellHasButton of hoItems1 h 1 to True
Get ComAddItem of hoItems1 "Items.<b>CellButtonAutoWidth</b> property" to h
Set ComCellValue of hoItems1 h 1 to " Button <b>2</b> "
Set ComCellHasButton of hoItems1 h 1 to True
Set ComCellButtonAutoWidth of hoItems1 h 1 to True
Get ComAddItem of hoItems1 "Items.<b>CellHasButton</b> property" to h
Set ComCellValue of hoItems1 h 1 to " <img>2</img>Button <b>3</b> "
Set ComCellHasButton of hoItems1 h 1 to True
Set ComCellButtonAutoWidth of hoItems1 h 1 to True
Get ComAddItem of hoItems1 "Items.<b>CellHasButton</b> property" to h
Set ComItemHeight of hoItems1 h to 32
Set ComCellValue of hoItems1 h 1 to " <img>2</img>Button <b>4</b> <img>pic1</img> "
Set ComCellHasButton of hoItems1 h 1 to True
Set ComCellButtonAutoWidth of hoItems1 h 1 to True
Get ComAddItem of hoItems1 "Items.<b>CellHasButton</b> in splitted cells" to h
Set ComCellValue of hoItems1 h 1 to " Button <b>5.1</b> "
Set ComCellHasButton of hoItems1 h 1 to True
Set ComCellButtonAutoWidth of hoItems1 h 1 to True
Variant s
Get ComSplitCell of hoItems1 h 1 to s
Set ComCellValue of hoItems1 0 s to " Button <b>5.2</b> "
Set ComCellHasButton of hoItems1 0 s to True
Set ComCellButtonAutoWidth of hoItems1 0 s to True
Get ComAddItem of hoItems1 "Column.<b>Editor</b>, Items.<b>CellEditor</b>" to h
Set ComCellValue of hoItems1 h 1 to "Visible when clicking the cell"
Variant voEditor
Get ComCellEditor of hoItems1 h 1 to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLEEditType
Send ComAddButton of hoEditor "B1" 1 0 "This is a bit of text that's shown when the cursor hovers the button B1" Nothing Nothing
Send ComAddButton of hoEditor "B3" 2 1 "This is a bit of text that's shown when the cursor hovers the button B3" Nothing Nothing
Send ComAddButton of hoEditor "B4" 1 1 "This is a bit of text that's shown when the cursor hovers the button B4" Nothing Nothing
Set ComButtonWidth of hoEditor to 24
Send Destroy to hoEditor
Get ComAddItem of hoItems1 "Column.<b>Editor</b>, Items.<b>CellEditor</b>" to h
Set ComCellValue of hoItems1 h 1 to 3
Variant voEditor1
Get ComCellEditor of hoItems1 h 1 to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComEditType of hoEditor1 to OLECheckListType
Send ComAddItem of hoEditor1 1 "Flag 1" Nothing
Send ComAddItem of hoEditor1 2 "Flag 2" Nothing
Send ComAddItem of hoEditor1 4 "Flag 4" Nothing
Send ComAddItem of hoEditor1 8 "Flag 8" Nothing
Send ComAddButton of hoEditor1 "C1" 1 0 "This is a bit of text that's shown when the cursor hovers the button C1" Nothing Nothing
Send ComAddButton of hoEditor1 "C3" 2 0 "This is a bit of text that's shown when the cursor hovers the button C2" Nothing Nothing
Send ComAddButton of hoEditor1 "C4" 1 0 "This is a bit of text that's shown when the cursor hovers the button C3" Nothing Nothing
Set ComButtonWidth of hoEditor1 to 24
Send Destroy to hoEditor1
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
698
|
The item is not getting selected when clicking the cell's checkbox. What should I do
// Fired after cell's state has been changed.
Procedure OnComCellStateChanged HITEM llItem Integer llColIndex
Forward Send OnComCellStateChanged llItem llColIndex
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComSelectItem of hoItems llItem to True
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Check" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAddItem of hoItems1 0 to Nothing
Get ComAddItem of hoItems1 1 to Nothing
Get ComAddItem of hoItems1 2 to Nothing
Get ComAddItem of hoItems1 3 to Nothing
Send Destroy to hoItems1
End_Procedure
|
|
697
|
Is it possible to limit the height of the item while resizing
// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM llItem
Forward Send OnComAddItem llItem
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComItemMinHeight of hoItems llItem to 18
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComItemMaxHeight of hoItems1 llItem to 72
Send Destroy to hoItems1
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComItemsAllowSizing to OLEexResizeItem
Set ComScrollBySingleLine to False
Set ComBackColorAlternate to (RGB(240,240,240))
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Names" to Nothing
Send Destroy to hoColumns
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAddItem of hoItems2 "Mantel" to Nothing
Get ComAddItem of hoItems2 "Mechanik" to Nothing
Get ComAddItem of hoItems2 "Motor" to Nothing
Get ComAddItem of hoItems2 "Murks" to Nothing
Get ComAddItem of hoItems2 "Märchen" to Nothing
Get ComAddItem of hoItems2 "Möhren" to Nothing
Get ComAddItem of hoItems2 "Mühle" to Nothing
Send Destroy to hoItems2
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComItem of hoColumns1 0 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortOrder of hoColumn to OLESortAscending
Send Destroy to hoColumn
Send Destroy to hoColumns1
Send ComEndUpdate
End_Procedure
|
|
696
|
Is it possible to copy the hierarchy of the control using the GetItems method
Procedure OnCreate
Forward Send OnCreate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Def" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Send Destroy to hoItems
Send ComPutItems (ComGetItems(Self,-1)) Nothing
End_Procedure
|
|
695
|
Is it possible to auto-numbering the children items but still keeps the position after filtering
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Items" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Set ComFilterType of hoColumn to OLEexFilter
Set ComFilter of hoColumn to "Child 2"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Pos.1" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComFormatColumn of hoColumn1 to "1 ropos ''"
Set ComPosition of hoColumn1 to 0
Set ComWidth of hoColumn1 to 32
Set ComAllowSizing of hoColumn1 to False
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComAdd of hoColumns2 "Pos.2" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComFormatColumn of hoColumn2 to "1 ropos ':'"
Set ComPosition of hoColumn2 to 1
Set ComWidth of hoColumn2 to 32
Set ComAllowSizing of hoColumn2 to False
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn3
Get ComAdd of hoColumns3 "Pos.3" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComFormatColumn of hoColumn3 to "1 ropos ':|A-Z'"
Set ComPosition of hoColumn3 to 2
Set ComWidth of hoColumn3 to 32
Set ComAllowSizing of hoColumn3 to False
Send Destroy to hoColumn3
Send Destroy to hoColumns3
Variant voColumns4
Get ComColumns to voColumns4
Handle hoColumns4
Get Create (RefClass(cComColumns)) to hoColumns4
Set pvComObject of hoColumns4 to voColumns4
Variant voColumn4
Get ComAdd of hoColumns4 "Pos.4" to voColumn4
Handle hoColumn4
Get Create (RefClass(cComColumn)) to hoColumn4
Set pvComObject of hoColumn4 to voColumn4
Set ComFormatColumn of hoColumn4 to "1 ropos '|A-Z|'"
Set ComPosition of hoColumn4 to 3
Set ComWidth of hoColumn4 to 32
Set ComAllowSizing of hoColumn4 to False
Send Destroy to hoColumn4
Send Destroy to hoColumns4
Variant voColumns5
Get ComColumns to voColumns5
Handle hoColumns5
Get Create (RefClass(cComColumns)) to hoColumns5
Set pvComObject of hoColumns5 to voColumns5
Variant voColumn5
Get ComAdd of hoColumns5 "Pos.5" to voColumn5
Handle hoColumn5
Get Create (RefClass(cComColumn)) to hoColumn5
Set pvComObject of hoColumn5 to voColumn5
Set ComFormatColumn of hoColumn5 to "'<font Tahoma;7>' + 1 ropos '-<b>||A-Z'"
Set ComDef of hoColumn5 OLEexCellValueFormat to 1
Set ComPosition of hoColumn5 to 4
Set ComWidth of hoColumn5 to 32
Set ComAllowSizing of hoColumn5 to False
Send Destroy to hoColumn5
Send Destroy to hoColumns5
Variant voColumns6
Get ComColumns to voColumns6
Handle hoColumns6
Get Create (RefClass(cComColumns)) to hoColumns6
Set pvComObject of hoColumns6 to voColumns6
Variant voColumn6
Get ComAdd of hoColumns6 "Pos.6" to voColumn6
Handle hoColumn6
Get Create (RefClass(cComColumn)) to hoColumn6
Set pvComObject of hoColumn6 to voColumn6
Set ComFormatColumn of hoColumn6 to "'<b>'+ 1 ropos '</b>:<fgcolor=FF0000>|A-Z|'"
Set ComDef of hoColumn6 OLEexCellValueFormat to 1
Set ComPosition of hoColumn6 to 5
Set ComWidth of hoColumn6 to 48
Set ComAllowSizing of hoColumn6 to False
Send Destroy to hoColumn6
Send Destroy to hoColumns6
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Root 2" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Send Destroy to hoItems
Send ComApplyFilter
Send ComEndUpdate
End_Procedure
|
|
694
|
Is it possible to auto-numbering the children items too
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Items" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Pos.1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatColumn of hoColumn to "1 rpos ''"
Set ComPosition of hoColumn to 0
Set ComWidth of hoColumn to 32
Set ComAllowSizing of hoColumn to False
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn1
Get ComAdd of hoColumns2 "Pos.2" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComFormatColumn of hoColumn1 to "1 rpos ':'"
Set ComPosition of hoColumn1 to 1
Set ComWidth of hoColumn1 to 32
Set ComAllowSizing of hoColumn1 to False
Send Destroy to hoColumn1
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn2
Get ComAdd of hoColumns3 "Pos.3" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComFormatColumn of hoColumn2 to "1 rpos ':|A-Z'"
Set ComPosition of hoColumn2 to 2
Set ComWidth of hoColumn2 to 32
Set ComAllowSizing of hoColumn2 to False
Send Destroy to hoColumn2
Send Destroy to hoColumns3
Variant voColumns4
Get ComColumns to voColumns4
Handle hoColumns4
Get Create (RefClass(cComColumns)) to hoColumns4
Set pvComObject of hoColumns4 to voColumns4
Variant voColumn3
Get ComAdd of hoColumns4 "Pos.4" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComFormatColumn of hoColumn3 to "1 rpos '|A-Z|'"
Set ComPosition of hoColumn3 to 3
Set ComWidth of hoColumn3 to 32
Set ComAllowSizing of hoColumn3 to False
Send Destroy to hoColumn3
Send Destroy to hoColumns4
Variant voColumns5
Get ComColumns to voColumns5
Handle hoColumns5
Get Create (RefClass(cComColumns)) to hoColumns5
Set pvComObject of hoColumns5 to voColumns5
Variant voColumn4
Get ComAdd of hoColumns5 "Pos.5" to voColumn4
Handle hoColumn4
Get Create (RefClass(cComColumn)) to hoColumn4
Set pvComObject of hoColumn4 to voColumn4
Set ComFormatColumn of hoColumn4 to "'<font Tahoma;7>' + 1 rpos '-<b>||A-Z'"
Set ComDef of hoColumn4 OLEexCellValueFormat to 1
Set ComPosition of hoColumn4 to 4
Set ComWidth of hoColumn4 to 32
Set ComAllowSizing of hoColumn4 to False
Send Destroy to hoColumn4
Send Destroy to hoColumns5
Variant voColumns6
Get ComColumns to voColumns6
Handle hoColumns6
Get Create (RefClass(cComColumns)) to hoColumns6
Set pvComObject of hoColumns6 to voColumns6
Variant voColumn5
Get ComAdd of hoColumns6 "Pos.6" to voColumn5
Handle hoColumn5
Get Create (RefClass(cComColumn)) to hoColumn5
Set pvComObject of hoColumn5 to voColumn5
Set ComFormatColumn of hoColumn5 to "'<b>'+ 1 rpos '</b>:<fgcolor=FF0000>|A-Z|'"
Set ComDef of hoColumn5 OLEexCellValueFormat to 1
Set ComPosition of hoColumn5 to 5
Set ComWidth of hoColumn5 to 48
Set ComAllowSizing of hoColumn5 to False
Send Destroy to hoColumn5
Send Destroy to hoColumns6
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Root 2" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
693
|
Is it possible to cancel or discard the values during validation
// Occurs before user changes the cell's value.
Procedure OnComValidateValue HITEM llItem Integer llColIndex Variant llNewValue Boolean llCancel
Forward Send OnComValidateValue llItem llColIndex llNewValue llCancel
Showln "ValidateValue" llNewValue
Showln "Change the Cancel parameter for ValidateValue event to accept/decline the newly value. "
Showln "The DiscardValidateValue restores back the previously values."
Send ComDiscardValidateValue
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComCauseValidateValue to OLEexValidateCell
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Date" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLEDateType
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Text" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Variant voEditor1
Get ComEditor of hoColumn1 to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComEditType of hoEditor1 to OLEEditType
Send Destroy to hoEditor1
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
692
|
Is it possible to validate the values of the cells only when user leaves the focused item
// Occurs before user changes the cell's value.
Procedure OnComValidateValue HITEM llItem Integer llColIndex Variant llNewValue Boolean llCancel
Forward Send OnComValidateValue llItem llColIndex llNewValue llCancel
Showln "ValidateValue" llNewValue
Showln "Change the Cancel parameter for ValidateValue event to accept/decline the newly value. "
Move True to Cancel
Showln "You can not leave the item/record until the Cancel is False."
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComCauseValidateValue to OLEexValidateItem
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Date" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLEDateType
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Text" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Variant voEditor1
Get ComEditor of hoColumn1 to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComEditType of hoEditor1 to OLEEditType
Send Destroy to hoEditor1
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
691
|
We would like to validate the values of the cells. Is it possible
// Occurs before user changes the cell's value.
Procedure OnComValidateValue HITEM llItem Integer llColIndex Variant llNewValue Boolean llCancel
Forward Send OnComValidateValue llItem llColIndex llNewValue llCancel
Showln "ValidateValue" llNewValue
Showln "Change the Cancel parameter for ValidateValue event to accept/decline the newly value."
Move True to Cancel
Showln "You can not leave the cell until the Cancel is False."
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComCauseValidateValue to OLEexValidateCell
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Date" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLEDateType
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Text" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Variant voEditor1
Get ComEditor of hoColumn1 to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComEditType of hoEditor1 to OLEEditType
Send Destroy to hoEditor1
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
690
|
Is there any way to add auto-numbering
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Items" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Pos" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatColumn of hoColumn to "1 pos ''"
Set ComPosition of hoColumn to 0
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item 1" to Nothing
Get ComAddItem of hoItems "Item 2" to Nothing
Get ComAddItem of hoItems "Item 3" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
689
|
Does your control supports multiple lines tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
Set ComToolTipDelay to 1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "tootip" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComToolTip of hoColumn to "<br><font Tahoma;10>This</font> is a <b>multi-lines</b> tooltip assigned to a column. The tooltip supports built-in HTML tags, icons and pictures.<br><br><br><img>pic1</img> picture ... <br><br>"
Send Destroy to hoColumn
Send Destroy to hoColumns
End_Procedure
|
|
688
|
How can I prevent highlighting the column from the cursor - point
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAEGg4BI0IQAAYAQGKIYBkAKBQAGaAoDDUOQzQwAAxDKKUEwsACEIrjKCYVgOHYYRrIMYgBCMJhLEoaZLhEZRQiqDYtRDFQBSDDcPw/EaRZohGaYJgEgI=" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexCursorHoverColumn to |CI$1000000
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "S" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 32
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Level 1" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComLevelKey of hoColumn1 to 1
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComAdd of hoColumns2 "Level 2" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComLevelKey of hoColumn2 to 1
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn3
Get ComAdd of hoColumns3 "Level 3" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComLevelKey of hoColumn3 to 1
Send Destroy to hoColumn3
Send Destroy to hoColumns3
Variant voColumns4
Get ComColumns to voColumns4
Handle hoColumns4
Get Create (RefClass(cComColumns)) to hoColumns4
Set pvComObject of hoColumns4 to voColumns4
Variant voColumn4
Get ComAdd of hoColumns4 "E1" to voColumn4
Handle hoColumn4
Get Create (RefClass(cComColumn)) to hoColumn4
Set pvComObject of hoColumn4 to voColumn4
Set ComWidth of hoColumn4 to 32
Send Destroy to hoColumn4
Send Destroy to hoColumns4
Variant voColumns5
Get ComColumns to voColumns5
Handle hoColumns5
Get Create (RefClass(cComColumns)) to hoColumns5
Set pvComObject of hoColumns5 to voColumns5
Variant voColumn5
Get ComAdd of hoColumns5 "E2" to voColumn5
Handle hoColumn5
Get Create (RefClass(cComColumn)) to hoColumn5
Set pvComObject of hoColumn5 to voColumn5
Set ComWidth of hoColumn5 to 32
Send Destroy to hoColumn5
Send Destroy to hoColumns5
Variant voColumns6
Get ComColumns to voColumns6
Handle hoColumns6
Get Create (RefClass(cComColumns)) to hoColumns6
Set pvComObject of hoColumns6 to voColumns6
Variant voColumn6
Get ComAdd of hoColumns6 "E3" to voColumn6
Handle hoColumn6
Get Create (RefClass(cComColumn)) to hoColumn6
Set pvComObject of hoColumn6 to voColumn6
Set ComWidth of hoColumn6 to 32
Send Destroy to hoColumn6
Send Destroy to hoColumns6
Variant voColumns7
Get ComColumns to voColumns7
Handle hoColumns7
Get Create (RefClass(cComColumns)) to hoColumns7
Set pvComObject of hoColumns7 to voColumns7
Variant voColumn7
Get ComAdd of hoColumns7 "E4" to voColumn7
Handle hoColumn7
Get Create (RefClass(cComColumn)) to hoColumn7
Set pvComObject of hoColumn7 to voColumn7
Set ComWidth of hoColumn7 to 32
Send Destroy to hoColumn7
Send Destroy to hoColumns7
End_Procedure
|
|
687
|
Is it possible display numbers in the same format no matter of regional settings in the control panel
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Def" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueFormat to 1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems 100000.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '') + ' <fgcolor=808080>(default positive)'"
Get ComAddItem of hoItems 100000.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '2|.|3|,|1|1')"
Get ComAddItem of hoItems -100000.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '') + ' <fgcolor=808080>(default negative)'"
Get ComAddItem of hoItems -100000.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '2|.|3|,|1|1')"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
686
|
Is it possible to add a 0 for numbers less than 1 instead .7 to show 0.8
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Def" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueFormat to 1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems 0.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '') + ' <fgcolor=808080>(default)'"
Get ComAddItem of hoItems 0.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '|||||0') + ' <fgcolor=808080>(Display no leading zeros)'"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
685
|
How can I specify the format for negative numbers
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Def" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueFormat to 1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems -100000.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '') + ' <fgcolor=808080>(default)'"
Get ComAddItem of hoItems -100000.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '||||1') + ' <fgcolor=808080>(Negative sign, number; for example, -1.1)'"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
684
|
Is it possible to change the grouping character when display numbers
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Def" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueFormat to 1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems 100000.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '') + ' <fgcolor=808080>(default)'"
Get ComAddItem of hoItems 100000.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '|||-') + ' <fgcolor=808080>(grouping character is -)'"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
683
|
How can I display numbers with 2 digits in each group
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Def" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueFormat to 1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems 100000.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '') + ' <fgcolor=808080>(default)'"
Get ComAddItem of hoItems 100000.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '||2') + ' <fgcolor=808080>(grouping by 2 digits)'"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
682
|
How can I display my numbers using a different decimal separator
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Def" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueFormat to 1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems 100.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '') + ' <fgcolor=808080>(default)'"
Get ComAddItem of hoItems 100.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '|;') + ' <fgcolor=808080>(decimal separator is <b>;</b>)'"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
681
|
Is it possible to display the numbers using 3 (three) digits
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Def" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueFormat to 1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems 100.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '') + ' <fgcolor=808080>(default)'"
Get ComAddItem of hoItems 100.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '3') + ' <fgcolor=808080>(3 digits)'"
Get ComAddItem of hoItems 100.27 to h
Set ComFormatCell of hoItems h 0 to "(value format 2) + ' <fgcolor=808080>(2 digits)'"
Get ComAddItem of hoItems 100.27 to h
Set ComFormatCell of hoItems h 0 to "(value format 1) + ' <fgcolor=808080>(1 digit)'"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
680
|
Is there any option to show the tooltip programmatically
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Send ComShowToolTip (ComItemFromPoint(Self,-1,-1,c,hit)) "" "8" "8" Nothing
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Def" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item 1" to Nothing
Get ComAddItem of hoItems "Item 2" to Nothing
Get ComAddItem of hoItems "Item 3" to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
679
|
How can I specify the column's width to be the same for all columns
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "A" to Nothing
Get ComAdd of hoColumns "B" to Nothing
Get ComAdd of hoColumns "C" to Nothing
Send Destroy to hoColumns
Set ComDrawGridLines to OLEexAllLines
Set ComColumnAutoResize to True
End_Procedure
|
|
678
|
How can I set the column's width to my desired width
Procedure OnCreate
Forward Send OnCreate
Set ComColumnAutoResize to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "A" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 128
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "B" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComWidth of hoColumn1 to 128
Send Destroy to hoColumn1
Send Destroy to hoColumns
Set ComDrawGridLines to OLEexAllLines
End_Procedure
|
|
677
|
Is it possible to format numbers
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComMarkSearchColumn to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Name" to Nothing
Variant voColumn
Get ComAdd of hoColumns "A" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortType of hoColumn to OLESortNumeric
Set ComAllowSizing of hoColumn to False
Set ComWidth of hoColumn to 36
Set ComFormatColumn of hoColumn to "len(value) ? value + ' +'"
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESpinType
Send Destroy to hoEditor
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "B" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComSortType of hoColumn1 to OLESortNumeric
Set ComAllowSizing of hoColumn1 to False
Set ComWidth of hoColumn1 to 36
Set ComFormatColumn of hoColumn1 to "len(value) ? value + ' +'"
Variant voEditor1
Get ComEditor of hoColumn1 to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComEditType of hoEditor1 to OLESpinType
Send Destroy to hoEditor1
Send Destroy to hoColumn1
Variant voColumn2
Get ComAdd of hoColumns "C" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComSortType of hoColumn2 to OLESortNumeric
Set ComAllowSizing of hoColumn2 to False
Set ComWidth of hoColumn2 to 36
Set ComFormatColumn of hoColumn2 to "len(value) ? value + ' ='"
Variant voEditor2
Get ComEditor of hoColumn2 to voEditor2
Handle hoEditor2
Get Create (RefClass(cComEditor)) to hoEditor2
Set pvComObject of hoEditor2 to voEditor2
Set ComEditType of hoEditor2 to OLESpinType
Send Destroy to hoEditor2
Send Destroy to hoColumn2
Variant voColumn3
Get ComAdd of hoColumns "A+B+C" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComSortType of hoColumn3 to OLESortNumeric
Set ComWidth of hoColumn3 to 64
Set ComComputedField of hoColumn3 to "dbl(%1)+dbl(%2)+dbl(%3)"
Set ComFormatColumn of hoColumn3 to "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=0000FF>+'+(value format '2|.|3|,' ): '0.00') )"
Set ComDef of hoColumn3 OLEexCellValueFormat to 1
Send Destroy to hoColumn3
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Set ComCellValueFormat of hoItems h 4 to OLEexComputedField
Variant h1
Get ComInsertItem of hoItems h "Child 1" to h1
Set ComCellValue of hoItems h1 1 to 7
Set ComCellValue of hoItems h1 2 to 3
Set ComCellValue of hoItems h1 3 to 1
Get ComInsertItem of hoItems h "Child 2" to h1
Set ComCellValue of hoItems h1 1 to -2
Set ComCellValue of hoItems h1 2 to -2
Set ComCellValue of hoItems h1 3 to -4
Get ComInsertItem of hoItems h "Child 3" to h1
Set ComCellValue of hoItems h1 1 to 2
Set ComCellValue of hoItems h1 2 to 2
Set ComCellValue of hoItems h1 3 to -4
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
676
|
How can I collapse all items
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Items" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComAddItem of hoItems "Root 2" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems 0 to False
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
675
|
How can I expand all items
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Items" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComAddItem of hoItems "Root 2" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems 0 to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
674
|
Can I display a total field without having to add a child item
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Numbers" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortType of hoColumn to OLESortNumeric
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESpinType
Set ComNumeric of hoEditor to OLEexFloat
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 1 to Nothing
Get ComAddItem of hoItems 2 to Nothing
Get ComAddItem of hoItems 3 to Nothing
Get ComAddItem of hoItems 4 to Nothing
Set ComLockedItemCount of hoItems OLEexBottom to 1
Variant h
Get ComLockedItem of hoItems OLEexBottom 0 to h
Set ComCellValue of hoItems h 0 to "sum(all,dir,dbl(%0))"
Set ComSortableItem of hoItems h to False
Set ComCellValueFormat of hoItems h 0 to OLEexTotalField
Set ComCellHAlignment of hoItems h 0 to OLERightAlignment
Set ComFormatCell of hoItems h 0 to "'SUM: '+value"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
673
|
Can I display the number of child items
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexGroupLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Variant hx
Get ComSplitCell of hoItems h 0 to hx
Set ComCellValue of hoItems 0 hx to "count(current,dir,1)"
Set ComCellValueFormat of hoItems 0 hx to OLEexTotalField
Set ComFormatCell of hoItems 0 hx to "'Childs: ' + value"
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Root 2" to h
Get ComSplitCell of hoItems h 0 to hx
Set ComCellValue of hoItems 0 hx to "count(current,dir,1)"
Set ComCellValueFormat of hoItems 0 hx to OLEexTotalField
Set ComFormatCell of hoItems 0 hx to "'Childs: ' + value"
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "Child 3" to Nothing
Get ComInsertItem of hoItems h "Child 4" to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
672
|
My field does not display the correctly computed value if I enter data using the control's editors ( concatenation of strings ). What am I doing wrong
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "T" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "A" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComNumeric of hoEditor to True
Set ComEditType of hoEditor to OLESpinType
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn1
Get ComAdd of hoColumns2 "B" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Variant voEditor1
Get ComEditor of hoColumn1 to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComNumeric of hoEditor1 to True
Set ComEditType of hoEditor1 to OLESpinType
Send Destroy to hoEditor1
Send Destroy to hoColumn1
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Get ComAdd of hoColumns3 "A+B" to Nothing
Send Destroy to hoColumns3
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Incorrect" to h
Set ComCellToolTip of hoItems h 0 to "Just type a number in the column A or B. The result will be concaternated"
Set ComCellValue of hoItems h 1 to "10"
Set ComCellValue of hoItems h 2 to "20"
Set ComCellValue of hoItems h 3 to "currency(%1+%2)"
Set ComCellValueFormat of hoItems h 3 to OLEexComputedField
Get ComAddItem of hoItems "Correct" to h
Set ComCellValue of hoItems h 1 to 10
Set ComCellValue of hoItems h 2 to 20
Set ComCellValue of hoItems h 3 to "currency(dbl(%1)+dbl(%2))"
Set ComCellValueFormat of hoItems h 3 to OLEexComputedField
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
671
|
The CellValue/CellCaption property gets the result of a computed/total field with text formatting. Is it possible to get that value without text formatting
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "A" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESpinType
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "B" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Variant voEditor1
Get ComEditor of hoColumn1 to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComEditType of hoEditor1 to OLESpinType
Send Destroy to hoEditor1
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Get ComAdd of hoColumns2 "A+B" to Nothing
Send Destroy to hoColumns2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems 10 to h
Set ComCellValue of hoItems h 1 to 20
Set ComCellValueFormat of hoItems h 2 to OLEexComputedField
Set ComCellValue of hoItems h 2 to "currency(dbl(%0)+dbl(%1))"
Showln "CellCaption returns " (ComCellCaption(hoItems,h,2))
Showln "CellValue returns " (ComCellValue(hoItems,h,2))
Showln "ComputeValue returns " (ComComputeValue(hoItems,"dbl(%0)+dbl(%1)",h,0,(ComCellValueFormat(hoItems,h,2))))
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
670
|
Can I get the result of a specified formula as your control does using the ComputedField property
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "A" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "B" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems 10 to h
Set ComCellValue of hoItems h 1 to 20
Showln "A+B is " (ComComputeValue(hoItems,"dbl(%0)+dbl(%1)",h,0,2))
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
669
|
Is it possible to get the text without HTML formatting
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "<b>bold</b>" to h
Showln (ComComputeValue(hoItems,(ComCellValue(hoItems,h,0)),h,0,1))
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
668
|
Can I specify an item to be a separator
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTreeColumnIndex to -1
Set ComSortOnClick to OLEexNoSort
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Numbers" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 1 to Nothing
Get ComAddItem of hoItems 2 to Nothing
Variant h
Get ComAddItem of hoItems "separator" to h
Set ComSelectableItem of hoItems h to False
Set ComItemDivider of hoItems h to 0
Set ComItemDividerLineAlignment of hoItems h to OLEDividerCenter
Set ComItemDividerLine of hoItems h to OLEThinLine
Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
Get ComAddItem of hoItems 3 to Nothing
Get ComAddItem of hoItems 4 to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
667
|
How can I count only non-zero values
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Numbers" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortType of hoColumn to OLESortNumeric
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 1 to Nothing
Get ComAddItem of hoItems 2 to Nothing
Get ComAddItem of hoItems 0 to Nothing
Get ComAddItem of hoItems 0 to Nothing
Get ComAddItem of hoItems 0 to Nothing
Get ComAddItem of hoItems 0 to Nothing
Get ComAddItem of hoItems 3 to Nothing
Get ComAddItem of hoItems 4 to Nothing
Variant h
Get ComAddItem of hoItems "sum(all,dir,dbl(%0)?1:0)" to h
Set ComSortableItem of hoItems h to False
Set ComCellValueFormat of hoItems h 0 to OLEexTotalField
Set ComCellHAlignment of hoItems h 0 to OLERightAlignment
Set ComFormatCell of hoItems h 0 to "'COUNT non-zero: '+value"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
666
|
How can I add a AVG ( average ) field
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Numbers" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortType of hoColumn to OLESortNumeric
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 1 to Nothing
Get ComAddItem of hoItems 2 to Nothing
Get ComAddItem of hoItems 3 to Nothing
Get ComAddItem of hoItems 4 to Nothing
Variant h
Get ComAddItem of hoItems "avg(all,dir,dbl(%0))" to h
Set ComSortableItem of hoItems h to False
Set ComCellValueFormat of hoItems h 0 to OLEexTotalField
Set ComCellHAlignment of hoItems h 0 to OLERightAlignment
Set ComFormatCell of hoItems h 0 to "'AVG: '+value"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
665
|
How can I add a COUNT field
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Numbers" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortType of hoColumn to OLESortNumeric
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 1 to Nothing
Get ComAddItem of hoItems 2 to Nothing
Get ComAddItem of hoItems 3 to Nothing
Get ComAddItem of hoItems 4 to Nothing
Variant h
Get ComAddItem of hoItems "count(all,dir,0)" to h
Set ComSortableItem of hoItems h to False
Set ComCellValueFormat of hoItems h 0 to OLEexTotalField
Set ComCellHAlignment of hoItems h 0 to OLERightAlignment
Set ComFormatCell of hoItems h 0 to "'COUNT: '+value"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
664
|
How can I add a MAX field
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Numbers" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortType of hoColumn to OLESortNumeric
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 1 to Nothing
Get ComAddItem of hoItems 2 to Nothing
Get ComAddItem of hoItems 3 to Nothing
Get ComAddItem of hoItems 4 to Nothing
Variant h
Get ComAddItem of hoItems "max(all,dir,dbl(%0))" to h
Set ComSortableItem of hoItems h to False
Set ComCellValueFormat of hoItems h 0 to OLEexTotalField
Set ComCellHAlignment of hoItems h 0 to OLERightAlignment
Set ComFormatCell of hoItems h 0 to "'MAX: '+value"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
663
|
How can I add a MIN or MAX field (for numbers)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Numbers" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortType of hoColumn to OLESortNumeric
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 11 to Nothing
Get ComAddItem of hoItems 21 to Nothing
Get ComAddItem of hoItems 3 to Nothing
Get ComAddItem of hoItems 4 to Nothing
Variant h
Get ComAddItem of hoItems "min(all,dir,dbl(%0))" to h
Set ComSortableItem of hoItems h to False
Set ComCellValueFormat of hoItems h 0 to OLEexTotalField
Set ComCellHAlignment of hoItems h 0 to OLERightAlignment
Set ComFormatCell of hoItems h 0 to "'MIN: '+value"
Get ComAddItem of hoItems "max(all,dir,dbl(%0))" to h
Set ComSortableItem of hoItems h to False
Set ComCellValueFormat of hoItems h 0 to OLEexTotalField
Set ComCellHAlignment of hoItems h 0 to OLERightAlignment
Set ComFormatCell of hoItems h 0 to "'MAX: '+value"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
662
|
How can I add a SUM field
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Numbers" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortType of hoColumn to OLESortNumeric
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 1 to Nothing
Get ComAddItem of hoItems 2 to Nothing
Get ComAddItem of hoItems 3 to Nothing
Get ComAddItem of hoItems 4 to Nothing
Variant h
Get ComAddItem of hoItems "sum(all,dir,dbl(%0))" to h
Set ComSortableItem of hoItems h to False
Set ComCellValueFormat of hoItems h 0 to OLEexTotalField
Set ComCellHAlignment of hoItems h 0 to OLERightAlignment
Set ComFormatCell of hoItems h 0 to "'SUM: '+value"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
661
|
How can I add total and subtotals fields
// Occurs when the user changes the cell's content.
Procedure OnComChange HITEM llItem Integer llColIndex Variant llNewValue
Forward Send OnComChange llItem llColIndex llNewValue
Send ComRefresh
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexGroupLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Members" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Values" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatColumn of hoColumn to "currency(value)"
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESpinType
Set ComNumeric of hoEditor to True
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Group 1" to h
Set ComItemBold of hoItems h to True
Set ComCellEditorVisible of hoItems h 1 to False
Set ComCellValue of hoItems h 1 to "sum(current,dir,dbl(%1))"
Set ComCellValueFormat of hoItems h 1 to (OLEexTotalField + OLEexHTML)
Set ComCellHAlignment of hoItems h 1 to OLERightAlignment
Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 1")) 1 to 10
Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 2")) 1 to 20
Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 3")) 1 to 30
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Group 2" to h
Set ComItemBold of hoItems h to True
Set ComCellEditorVisible of hoItems h 1 to False
Set ComCellValue of hoItems h 1 to "sum(current,dir,dbl(%1))"
Set ComCellValueFormat of hoItems h 1 to (OLEexTotalField + OLEexHTML)
Set ComCellHAlignment of hoItems h 1 to OLERightAlignment
Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 1")) 1 to 5
Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 2")) 1 to 15
Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 3")) 1 to 35
Get ComAddItem of hoItems "total" to h
Set ComCellValue of hoItems h 1 to "sum(all,rec,dbl(%1))"
Set ComCellValueFormat of hoItems h 1 to (OLEexTotalField + OLEexHTML)
Set ComCellEditorVisible of hoItems h 1 to False
Set ComFormatCell of hoItems h 1 to "'Total: <b>' + currency(value)"
Set ComCellHAlignment of hoItems h 1 to OLERightAlignment
Set ComItemDivider of hoItems h to 1
Set ComItemDividerLineAlignment of hoItems h to OLEDividerCenter
Set ComItemDividerLine of hoItems h to OLEDoubleLine
Set ComSortableItem of hoItems h to False
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
660
|
Is is possible to have subtotal items, and a grand total item
// Occurs when the user changes the cell's content.
Procedure OnComChange HITEM llItem Integer llColIndex Variant llNewValue
Forward Send OnComChange llItem llColIndex llNewValue
Send ComRefresh
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComBackColor to (RGB(255,255,255))
Set ComLinesAtRoot to OLEexGroupLinesAtRoot
Set ComShowFocusRect to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Members" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Values" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatColumn of hoColumn to "currency(value)"
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESpinType
Set ComNumeric of hoEditor to True
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Group 1" to h
Set ComItemBold of hoItems h to True
Set ComSortableItem of hoItems h to False
Set ComCellEditorVisible of hoItems h 1 to False
Set ComFormatCell of hoItems h 1 to " "
Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 1")) 1 to 10
Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 2")) 1 to 20
Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 3")) 1 to 30
Variant hT
Get ComInsertItem of hoItems h "subtotal" to hT
Set ComCellHAlignment of hoItems hT 1 to OLERightAlignment
Set ComCellEditorVisible of hoItems hT 1 to False
Set ComCellValue of hoItems hT 1 to "sum(parent,dir,dbl(%1))"
Set ComCellValueFormat of hoItems hT 1 to (OLEexTotalField + OLEexHTML)
Set ComFormatCell of hoItems hT 1 to "'subtotal: <b>' + currency(value)"
Set ComItemDivider of hoItems hT to 1
Set ComItemDividerLineAlignment of hoItems hT to OLEDividerCenter
Set ComSortableItem of hoItems hT to False
Set ComSelectableItem of hoItems hT to False
Set ComItemDividerLine of hoItems hT to OLEDotLine
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Group 2" to h
Set ComItemBold of hoItems h to True
Set ComSortableItem of hoItems h to False
Set ComFormatCell of hoItems h 1 to " "
Set ComCellEditorVisible of hoItems h 1 to False
Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 1")) 1 to 15
Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 2")) 1 to 25
Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 3")) 1 to 18
Get ComInsertItem of hoItems h "subtotal" to hT
Set ComCellHAlignment of hoItems hT 1 to OLERightAlignment
Set ComCellEditorVisible of hoItems hT 1 to False
Set ComCellValue of hoItems hT 1 to "sum(parent,dir,dbl(%1))"
Set ComCellValueFormat of hoItems hT 1 to (OLEexTotalField + OLEexHTML)
Set ComFormatCell of hoItems hT 1 to "'subtotal: <b>' + currency(value)"
Set ComItemDivider of hoItems hT to 1
Set ComItemDividerLineAlignment of hoItems hT to OLEDividerCenter
Set ComItemDividerLine of hoItems hT to OLEDotLine
Set ComSortableItem of hoItems hT to False
Set ComSelectableItem of hoItems hT to False
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "total" to h
Set ComCellValue of hoItems h 1 to "sum(all,rec,dbl(%1))"
Set ComCellValueFormat of hoItems h 1 to (OLEexTotalField + OLEexHTML)
Set ComCellEditorVisible of hoItems h 1 to False
Set ComFormatCell of hoItems h 1 to "'Total: <b><font ;11>' + currency(value)"
Set ComCellHAlignment of hoItems h 1 to OLECenterAlignment
Set ComItemDivider of hoItems h to 1
Set ComItemDividerLineAlignment of hoItems h to OLEDividerCenter
Set ComItemDividerLine of hoItems h to OLEDoubleLine
Set ComSortableItem of hoItems h to False
Set ComSelectableItem of hoItems h to False
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
659
|
Is it possible to have a total field for each column
// Occurs when the user changes the cell's content.
Procedure OnComChange HITEM llItem Integer llColIndex Variant llNewValue
Forward Send OnComChange llItem llColIndex llNewValue
Send ComRefresh
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "C1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComNumeric of hoEditor to OLEexInteger
Set ComEditType of hoEditor to OLESpinType
Send Destroy to hoEditor
Set ComSortType of hoColumn to OLESortNumeric
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "C2" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Variant voEditor1
Get ComEditor of hoColumn1 to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComNumeric of hoEditor1 to OLEexInteger
Set ComEditType of hoEditor1 to OLESpinType
Send Destroy to hoEditor1
Set ComSortType of hoColumn1 to OLESortNumeric
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComLockedItemCount of hoItems OLEexBottom to 1
Variant h
Get ComLockedItem of hoItems OLEexBottom 0 to h
Set ComItemBackColor of hoItems h to (RGB(240,240,240))
Set ComItemBold of hoItems h to True
Set ComCellValue of hoItems h 0 to "sum(all,dir,dbl(%0))"
Set ComCellValueFormat of hoItems h 0 to OLEexTotalField
Set ComCellValue of hoItems h 1 to "sum(all,dir,dbl(%1))"
Set ComCellValueFormat of hoItems h 1 to OLEexTotalField
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCellValue of hoItems1 (ComAddItem(hoItems1,10)) 1 to 12
Set ComCellValue of hoItems1 (ComAddItem(hoItems1,25)) 1 to 5
Set ComCellValue of hoItems1 (ComAddItem(hoItems1,31)) 1 to 17
Set ComCellValue of hoItems1 (ComAddItem(hoItems1,48)) 1 to 22
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
658
|
How can I add a total field for a DataSource being used
// Occurs when the user changes the cell's content.
Procedure OnComChange HITEM llItem Integer llColIndex Variant llNewValue
Forward Send OnComChange llItem llColIndex llNewValue
Send ComRefresh
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComColumnAutoResize to False
Set ComContinueColumnScroll to False
Variant rs
Get Comcreateobject "ADOR.Recordset" to rs
Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource to rs
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComLockedItemCount of hoItems OLEexTop to 1
Variant h
Get ComLockedItem of hoItems OLEexTop 0 to h
Set ComItemDivider of hoItems h to 0
Set ComCellValueFormat of hoItems h 0 to (OLEexTotalField + OLEexHTML)
Set ComCellValue of hoItems h 0 to "sum(all,dir,%1)"
Send Destroy to hoItems
End_Procedure
|
|
657
|
How can I add a total field
// Occurs when the user changes the cell's content.
Procedure OnComChange HITEM llItem Integer llColIndex Variant llNewValue
Forward Send OnComChange llItem llColIndex llNewValue
Send ComRefresh
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Numbers" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComNumeric of hoEditor to OLEexInteger
Set ComEditType of hoEditor to OLESpinType
Send Destroy to hoEditor
Set ComSortType of hoColumn to OLESortNumeric
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComLockedItemCount of hoItems OLEexTop to 1
Variant h
Get ComLockedItem of hoItems OLEexTop 0 to h
Set ComItemBackColor of hoItems h to (RGB(240,240,240))
Set ComCellValue of hoItems h 0 to "sum(all,dir,dbl(%0))"
Set ComCellValueFormat of hoItems h 0 to OLEexTotalField
Set ComCellHAlignment of hoItems h 0 to OLERightAlignment
Set ComFormatCell of hoItems h 0 to "'Total: '+value"
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAddItem of hoItems1 10 to Nothing
Get ComAddItem of hoItems1 25 to Nothing
Get ComAddItem of hoItems1 31 to Nothing
Get ComAddItem of hoItems1 48 to Nothing
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
656
|
How can I add a total field
// Occurs when the user changes the cell's content.
Procedure OnComChange HITEM llItem Integer llColIndex Variant llNewValue
Forward Send OnComChange llItem llColIndex llNewValue
Send ComRefresh
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Items" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESpinType
Set ComNumeric of hoEditor to True
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Group 1" to h
Set ComCellEditorVisible of hoItems h 0 to False
Get ComInsertItem of hoItems h 10 to Nothing
Get ComInsertItem of hoItems h 20 to Nothing
Get ComInsertItem of hoItems h 30 to Nothing
Variant hT
Get ComInsertItem of hoItems h "sum(parent,dir,dbl(%0))" to hT
Set ComCellEditorVisible of hoItems hT 0 to False
Set ComCellValueFormat of hoItems hT 0 to (OLEexTotalField + OLEexHTML)
Set ComItemDivider of hoItems hT to 0
Set ComItemDividerLineAlignment of hoItems hT to OLEDividerTop
Set ComSelectableItem of hoItems hT to False
Set ComSortableItem of hoItems hT to False
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
655
|
Is it possible to specify the cell's value but still want to display some formatted text instead the value
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Value" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "FormatCell" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems 1 to h
Set ComCellValue of hoItems h 1 to 12
Set ComFormatCell of hoItems h 1 to "currency(value)"
Get ComAddItem of hoItems "1/1/2001" to h
Set ComCellValue of hoItems h 1 to "1/1/2001"
Set ComCellValueFormat of hoItems h 1 to OLEexHTML
Set ComFormatCell of hoItems h 1 to "longdate(value) replace '2001' with '<b>2001</b>'"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
654
|
How can I simulate displaying groups
Procedure OnCreate
Forward Send OnCreate
Set ComHasLines to OLEexNoLine
Set ComScrollBySingleLine to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Name" to Nothing
Get ComAdd of hoColumns "A" to Nothing
Get ComAdd of hoColumns "B" to Nothing
Get ComAdd of hoColumns "C" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Group 1" to h
Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
Set ComItemDivider of hoItems h to 0
Set ComItemDividerLineAlignment of hoItems h to OLEDividerBoth
Set ComItemHeight of hoItems h to 24
Set ComSortableItem of hoItems h to False
Variant h1
Get ComInsertItem of hoItems h "Child 1" to h1
Set ComCellValue of hoItems h1 1 to 1
Set ComCellValue of hoItems h1 2 to 2
Set ComCellValue of hoItems h1 3 to 3
Get ComInsertItem of hoItems h "Child 2" to h1
Set ComCellValue of hoItems h1 1 to 4
Set ComCellValue of hoItems h1 2 to 5
Set ComCellValue of hoItems h1 3 to 6
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Group 2" to h
Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
Set ComItemDivider of hoItems h to 0
Set ComItemDividerLineAlignment of hoItems h to OLEDividerBoth
Set ComItemHeight of hoItems h to 24
Set ComSortableItem of hoItems h to False
Get ComInsertItem of hoItems h "Child 1" to h1
Set ComCellValue of hoItems h1 1 to 1
Set ComCellValue of hoItems h1 2 to 2
Set ComCellValue of hoItems h1 3 to 3
Get ComInsertItem of hoItems h "Child 2" to h1
Set ComCellValue of hoItems h1 1 to 4
Set ComCellValue of hoItems h1 2 to 5
Set ComCellValue of hoItems h1 3 to 6
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
653
|
Is it possible to specify the cell's value but still want to display some formatted text instead the value
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComMarkSearchColumn to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Name" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Values" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortType of hoColumn to OLESortNumeric
Set ComAllowSizing of hoColumn to False
Set ComWidth of hoColumn to 64
Set ComFormatColumn of hoColumn to "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
Set ComDef of hoColumn OLEexCellValueFormat to 1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Set ComFormatCell of hoItems h 1 to "'<none>'"
Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 1")) 1 to 10
Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 2")) 1 to 15
Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 3")) 1 to 25
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
652
|
I am using the FormatColumn to display the current currency, but would like hide some values. Is it possible
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComMarkSearchColumn to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Name" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Values" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortType of hoColumn to OLESortNumeric
Set ComAllowSizing of hoColumn to False
Set ComWidth of hoColumn to 64
Set ComFormatColumn of hoColumn to "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
Set ComDef of hoColumn OLEexCellValueFormat to 1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Set ComFormatCell of hoItems h 1 to " "
Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 1")) 1 to 10
Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 2")) 1 to 15
Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 3")) 1 to 25
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
651
|
How can I specify an item to be always the first item
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTreeColumnIndex to -1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Numbers" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortType of hoColumn to OLESortNumeric
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 1 to Nothing
Get ComAddItem of hoItems 2 to Nothing
Get ComAddItem of hoItems 3 to Nothing
Get ComAddItem of hoItems 4 to Nothing
Variant h
Get ComAddItem of hoItems "first" to h
Set ComItemPosition of hoItems h to 0
Set ComCellHAlignment of hoItems h 0 to OLERightAlignment
Set ComSortableItem of hoItems h to False
Send ComSortChildren of hoItems 0 0 False
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
650
|
How can I specify an item to be always the last item
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTreeColumnIndex to -1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Numbers" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortType of hoColumn to OLESortNumeric
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 1 to Nothing
Get ComAddItem of hoItems 2 to Nothing
Get ComAddItem of hoItems 3 to Nothing
Get ComAddItem of hoItems 4 to Nothing
Variant h
Get ComAddItem of hoItems "last" to h
Set ComCellHAlignment of hoItems h 0 to OLERightAlignment
Set ComSortableItem of hoItems h to False
Send ComSortChildren of hoItems 0 0 True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
649
|
Can I allow sorting only the child items
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Childs" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Set ComSortableItem of hoItems h to False
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Root 2" to h
Set ComSortableItem of hoItems h to False
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
648
|
Can I specify a terminal item so it will mark the end of childs
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComScrollBySingleLine to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "P1" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Get ComInsertItem of hoItems h "" "" to h
Set ComItemDivider of hoItems h to 0
Set ComItemDividerLineAlignment of hoItems h to OLEDividerCenter
Set ComItemHeight of hoItems h to 2
Set ComSelectableItem of hoItems h to False
Set ComSortableItem of hoItems h to False
Get ComAddItem of hoItems "Root 2" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Get ComInsertItem of hoItems h "" "" to h
Set ComItemDivider of hoItems h to 0
Set ComItemDividerLineAlignment of hoItems h to OLEDividerCenter
Set ComItemHeight of hoItems h to 2
Set ComSelectableItem of hoItems h to False
Set ComSortableItem of hoItems h to False
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
647
|
Is it possible to specify an item being unsortable so its position won't be changed after sorting
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTreeColumnIndex to -1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Numbers" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortType of hoColumn to OLESortNumeric
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 1 to Nothing
Get ComAddItem of hoItems 2 to Nothing
Get ComAddItem of hoItems 3 to Nothing
Get ComAddItem of hoItems 4 to Nothing
Variant h
Get ComAddItem of hoItems "top 3" to h
Set ComItemPosition of hoItems h to 3
Set ComCellHAlignment of hoItems h 0 to OLERightAlignment
Set ComSortableItem of hoItems h to False
Send ComSortChildren of hoItems 0 0 False
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
646
|
Is it possible to move an item from a parent to another
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Items" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "A" to Nothing
Get ComAddItem of hoItems "B" to Nothing
Get ComInsertItem of hoItems (ComAddItem(hoItems,"C")) "" "D" to Nothing
Send ComSetParent of hoItems (ComFindItem(hoItems,"D",0,Nothing)) (ComFindItem(hoItems,"A",0,Nothing))
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
645
|
How can I change the identation for an item
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Items" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "A" to Nothing
Get ComAddItem of hoItems "B" to Nothing
Get ComInsertItem of hoItems (ComAddItem(hoItems,"C")) "" "D" to Nothing
Send ComSetParent of hoItems (ComFindItem(hoItems,"D",0,Nothing)) 0
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
644
|
How can I arrange the control's header on multiple levels
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDefaultItemHeight to 48
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Title" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComVisible of hoColumn to False
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "FirstName" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComVisible of hoColumn1 to False
Send Destroy to hoColumn1
Variant voColumn2
Get ComAdd of hoColumns "LastName" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComVisible of hoColumn2 to False
Send Destroy to hoColumn2
Variant voColumn3
Get ComAdd of hoColumns "Photo" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComVisible of hoColumn3 to False
Send Destroy to hoColumn3
Variant voColumn4
Get ComAdd of hoColumns "Address" to voColumn4
Handle hoColumn4
Get Create (RefClass(cComColumn)) to hoColumn4
Set pvComObject of hoColumn4 to voColumn4
Set ComVisible of hoColumn4 to False
Set ComDef of hoColumn4 OLEexCellSingleLine to False
Send Destroy to hoColumn4
Variant voColumn5
Get ComAdd of hoColumns "Personal Info" to voColumn5
Handle hoColumn5
Get Create (RefClass(cComColumn)) to hoColumn5
Set pvComObject of hoColumn5 to voColumn5
Set ComFormatLevel of hoColumn5 to "3:48,(0/1/2),4:96"
Set ComDef of hoColumn5 OLEexCellFormatLevel to "3:48,(0/1/2),4:96"
Send Destroy to hoColumn5
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Sales Representative" to h
Set ComCellValue of hoItems h 1 to "Nancy"
Set ComCellValue of hoItems h 2 to "Davolio"
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComCellPicture of hoItems h 3 to (vPicture)
Set ComCellValue of hoItems h 4 to "507-20th Ave. E.Apt. 2A"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
643
|
How can I filter programatically using more columns
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Car" to Nothing
Get ComAdd of hoColumns "Equipment" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Mazda")) 1 to "Air Bag"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Toyota")) 1 to "Air Bag,Air condition"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Ford")) 1 to "Air condition"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Nissan")) 1 to "Air Bag,ABS,ESP"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Mazda")) 1 to "Air Bag, ABS,ESP"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Mazda")) 1 to "ABS,ESP"
Send Destroy to hoItems
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComItem of hoColumns1 "Car" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFilterType of hoColumn to OLEexFilter
Set ComFilter of hoColumn to "Mazda"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn1
Get ComItem of hoColumns2 "Equipment" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComFilterType of hoColumn1 to OLEexPattern
Set ComFilter of hoColumn1 to "*ABS*|*ESP*"
Send Destroy to hoColumn1
Send Destroy to hoColumns2
Send ComApplyFilter
Send ComEndUpdate
End_Procedure
|
|
642
|
How can I show the ticks for a single slider field
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Slider" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESliderType
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 10 to Nothing
Variant voEditor1
Get ComCellEditor of hoItems (ComAddItem(hoItems,20)) 0 to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComEditType of hoEditor1 to OLESliderType
Set ComOption of hoEditor1 OLEexSliderTickFrequency to 10
Send Destroy to hoEditor1
Get ComAddItem of hoItems 30 to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
641
|
Is it possible to show ticks for slider fields
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Slider" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESliderType
Set ComOption of hoEditor OLEexSliderTickFrequency to 10
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 10 to Nothing
Send Destroy to hoItems
End_Procedure
|
|
640
|
Is it possible to colour a particular column, I mean the cell's foreground color
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "1" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComForeColor of hoConditionalFormat to (RGB(255,0,0))
Set ComApplyTo of hoConditionalFormat to |CI$1
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Set ComMarkSearchColumn to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Get ComAdd of hoColumns "Column 2" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,0)) 1 to 1
Set ComCellValue of hoItems (ComAddItem(hoItems,2)) 1 to 3
Set ComCellValue of hoItems (ComAddItem(hoItems,4)) 1 to 5
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
639
|
Is it possible to colour a particular column for specified values
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "int(%1) in (3,4,5)" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBackColor of hoConditionalFormat to (RGB(255,0,0))
Set ComApplyTo of hoConditionalFormat to |CI$1
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Set ComMarkSearchColumn to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Get ComAdd of hoColumns "Column 2" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,0)) 1 to 1
Set ComCellValue of hoItems (ComAddItem(hoItems,2)) 1 to 3
Set ComCellValue of hoItems (ComAddItem(hoItems,4)) 1 to 5
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
638
|
Is it possible to colour a particular column
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComMarkSearchColumn to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Column 2" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellBackColor to 255
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,0)) 1 to 1
Set ComCellValue of hoItems (ComAddItem(hoItems,2)) 1 to 3
Set ComCellValue of hoItems (ComAddItem(hoItems,4)) 1 to 5
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
637
|
How do i get all the children items that are under a certain parent Item handle
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "P" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant hChild
Get ComItemChild of hoItems1 (ComFirstVisibleItem(hoItems1)) to hChild
Showln (ComCellValue(hoItems1,hChild,0))
Showln (ComCellValue(hoItems1,(ComNextSiblingItem(hoItems1,hChild)),0))
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
636
|
Is is possible to use HTML tags to display in the filter caption
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible
Set ComFilterBarCaption to "This is a bit of text being displayed in the filter bar."
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item 1" to Nothing
Get ComAddItem of hoItems "Item 2" to Nothing
Get ComAddItem of hoItems "Item 3" to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
635
|
How can I find the number of items after filtering
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "" to h
Set ComCellValue of hoItems h 0 to (ComVisibleItemCount(hoItems))
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
634
|
How can I change the filter caption
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to True
Set ComContinueColumnScroll to False
Set ComFocusColumnIndex to 1
Set ComMarkSearchColumn to False
Set ComSearchColumnIndex to 1
Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible
Set ComFilterBarPromptType to (OLEexFilterPromptWords + OLEexFilterPromptContainsAll)
Set ComFilterBarPromptPattern to "london robert"
Set ComFilterBarCaption to "<r>Found: ... "
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Name" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 96
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Title" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComWidth of hoColumn1 to 96
Send Destroy to hoColumn1
Get ComAdd of hoColumns "City" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h0
Get ComAddItem of hoItems "Nancy Davolio" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Seattle"
Get ComAddItem of hoItems "Andrew Fuller" to h0
Set ComCellValue of hoItems h0 1 to "Vice President, Sales"
Set ComCellValue of hoItems h0 2 to "Tacoma"
Set ComSelectItem of hoItems h0 to True
Get ComAddItem of hoItems "Janet Leverling" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Kirkland"
Get ComAddItem of hoItems "Margaret Peacock" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Redmond"
Get ComAddItem of hoItems "Steven Buchanan" to h0
Set ComCellValue of hoItems h0 1 to "Sales Manager"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Michael Suyama" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Robert King" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Laura Callahan" to h0
Set ComCellValue of hoItems h0 1 to "Inside Sales Coordinator"
Set ComCellValue of hoItems h0 2 to "Seattle"
Get ComAddItem of hoItems "Anne Dodsworth" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
633
|
While using the filter prompt is it is possible to use wild characters
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to True
Set ComContinueColumnScroll to False
Set ComFocusColumnIndex to 1
Set ComMarkSearchColumn to False
Set ComSearchColumnIndex to 1
Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible
Set ComFilterBarPromptType to OLEexFilterPromptPattern
Set ComFilterBarPromptPattern to "lon* seat*"
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Name" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 96
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Title" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComWidth of hoColumn1 to 96
Send Destroy to hoColumn1
Get ComAdd of hoColumns "City" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h0
Get ComAddItem of hoItems "Nancy Davolio" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Seattle"
Get ComAddItem of hoItems "Andrew Fuller" to h0
Set ComCellValue of hoItems h0 1 to "Vice President, Sales"
Set ComCellValue of hoItems h0 2 to "Tacoma"
Set ComSelectItem of hoItems h0 to True
Get ComAddItem of hoItems "Janet Leverling" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Kirkland"
Get ComAddItem of hoItems "Margaret Peacock" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Redmond"
Get ComAddItem of hoItems "Steven Buchanan" to h0
Set ComCellValue of hoItems h0 1 to "Sales Manager"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Michael Suyama" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Robert King" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Laura Callahan" to h0
Set ComCellValue of hoItems h0 1 to "Inside Sales Coordinator"
Set ComCellValue of hoItems h0 2 to "Seattle"
Get ComAddItem of hoItems "Anne Dodsworth" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
632
|
How can I list all items that contains any of specified words, not necessary at the beggining
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to True
Set ComContinueColumnScroll to False
Set ComFocusColumnIndex to 1
Set ComMarkSearchColumn to False
Set ComSearchColumnIndex to 1
Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible
Set ComFilterBarPromptType to (OLEexFilterPromptStartWords + OLEexFilterPromptContainsAny)
Set ComFilterBarPromptPattern to "london davolio"
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Name" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 96
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Title" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComWidth of hoColumn1 to 96
Send Destroy to hoColumn1
Get ComAdd of hoColumns "City" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h0
Get ComAddItem of hoItems "Nancy Davolio" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Seattle"
Get ComAddItem of hoItems "Andrew Fuller" to h0
Set ComCellValue of hoItems h0 1 to "Vice President, Sales"
Set ComCellValue of hoItems h0 2 to "Tacoma"
Set ComSelectItem of hoItems h0 to True
Get ComAddItem of hoItems "Janet Leverling" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Kirkland"
Get ComAddItem of hoItems "Margaret Peacock" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Redmond"
Get ComAddItem of hoItems "Steven Buchanan" to h0
Set ComCellValue of hoItems h0 1 to "Sales Manager"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Michael Suyama" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Robert King" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Laura Callahan" to h0
Set ComCellValue of hoItems h0 1 to "Inside Sales Coordinator"
Set ComCellValue of hoItems h0 2 to "Seattle"
Get ComAddItem of hoItems "Anne Dodsworth" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
631
|
How can I list all items that contains any of specified words, not strings
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to True
Set ComContinueColumnScroll to False
Set ComFocusColumnIndex to 1
Set ComMarkSearchColumn to False
Set ComSearchColumnIndex to 1
Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible
Set ComFilterBarPromptType to (OLEexFilterPromptWords + OLEexFilterPromptContainsAny)
Set ComFilterBarPromptPattern to "london nancy"
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Name" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 96
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Title" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComWidth of hoColumn1 to 96
Send Destroy to hoColumn1
Get ComAdd of hoColumns "City" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h0
Get ComAddItem of hoItems "Nancy Davolio" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Seattle"
Get ComAddItem of hoItems "Andrew Fuller" to h0
Set ComCellValue of hoItems h0 1 to "Vice President, Sales"
Set ComCellValue of hoItems h0 2 to "Tacoma"
Set ComSelectItem of hoItems h0 to True
Get ComAddItem of hoItems "Janet Leverling" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Kirkland"
Get ComAddItem of hoItems "Margaret Peacock" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Redmond"
Get ComAddItem of hoItems "Steven Buchanan" to h0
Set ComCellValue of hoItems h0 1 to "Sales Manager"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Michael Suyama" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Robert King" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Laura Callahan" to h0
Set ComCellValue of hoItems h0 1 to "Inside Sales Coordinator"
Set ComCellValue of hoItems h0 2 to "Seattle"
Get ComAddItem of hoItems "Anne Dodsworth" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
630
|
How can I list all items that contains all specified words, not strings
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to True
Set ComContinueColumnScroll to False
Set ComFocusColumnIndex to 1
Set ComMarkSearchColumn to False
Set ComSearchColumnIndex to 1
Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible
Set ComFilterBarPromptType to (OLEexFilterPromptWords + OLEexFilterPromptContainsAll)
Set ComFilterBarPromptPattern to "london robert"
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Name" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 96
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Title" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComWidth of hoColumn1 to 96
Send Destroy to hoColumn1
Get ComAdd of hoColumns "City" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h0
Get ComAddItem of hoItems "Nancy Davolio" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Seattle"
Get ComAddItem of hoItems "Andrew Fuller" to h0
Set ComCellValue of hoItems h0 1 to "Vice President, Sales"
Set ComCellValue of hoItems h0 2 to "Tacoma"
Set ComSelectItem of hoItems h0 to True
Get ComAddItem of hoItems "Janet Leverling" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Kirkland"
Get ComAddItem of hoItems "Margaret Peacock" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Redmond"
Get ComAddItem of hoItems "Steven Buchanan" to h0
Set ComCellValue of hoItems h0 1 to "Sales Manager"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Michael Suyama" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Robert King" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Laura Callahan" to h0
Set ComCellValue of hoItems h0 1 to "Inside Sales Coordinator"
Set ComCellValue of hoItems h0 2 to "Seattle"
Get ComAddItem of hoItems "Anne Dodsworth" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
629
|
I've noticed that the filtering by prompt is not case sensitive, is is possible to make it case sensitive
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to True
Set ComContinueColumnScroll to False
Set ComFocusColumnIndex to 1
Set ComMarkSearchColumn to False
Set ComSearchColumnIndex to 1
Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible
Set ComFilterBarPromptType to (OLEexFilterPromptCaseSensitive + OLEexFilterPromptContainsAny)
Set ComFilterBarPromptPattern to "Anne"
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Name" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 96
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Title" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComWidth of hoColumn1 to 96
Send Destroy to hoColumn1
Get ComAdd of hoColumns "City" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h0
Get ComAddItem of hoItems "Nancy Davolio" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Seattle"
Get ComAddItem of hoItems "Andrew Fuller" to h0
Set ComCellValue of hoItems h0 1 to "Vice President, Sales"
Set ComCellValue of hoItems h0 2 to "Tacoma"
Set ComSelectItem of hoItems h0 to True
Get ComAddItem of hoItems "Janet Leverling" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Kirkland"
Get ComAddItem of hoItems "Margaret Peacock" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Redmond"
Get ComAddItem of hoItems "Steven Buchanan" to h0
Set ComCellValue of hoItems h0 1 to "Sales Manager"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Michael Suyama" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Robert King" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Laura Callahan" to h0
Set ComCellValue of hoItems h0 1 to "Inside Sales Coordinator"
Set ComCellValue of hoItems h0 2 to "Seattle"
Get ComAddItem of hoItems "Anne Dodsworth" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
628
|
Is it possible to list only items that ends with any of specified strings
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to True
Set ComContinueColumnScroll to False
Set ComFocusColumnIndex to 1
Set ComMarkSearchColumn to False
Set ComSearchColumnIndex to 1
Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible
Set ComFilterBarPromptType to OLEexFilterPromptEndWith
Set ComFilterBarPromptColumns to "0"
Set ComFilterBarPromptPattern to "Fuller"
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Name" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 96
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Title" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComWidth of hoColumn1 to 96
Send Destroy to hoColumn1
Get ComAdd of hoColumns "City" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h0
Get ComAddItem of hoItems "Nancy Davolio" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Seattle"
Get ComAddItem of hoItems "Andrew Fuller" to h0
Set ComCellValue of hoItems h0 1 to "Vice President, Sales"
Set ComCellValue of hoItems h0 2 to "Tacoma"
Set ComSelectItem of hoItems h0 to True
Get ComAddItem of hoItems "Janet Leverling" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Kirkland"
Get ComAddItem of hoItems "Margaret Peacock" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Redmond"
Get ComAddItem of hoItems "Steven Buchanan" to h0
Set ComCellValue of hoItems h0 1 to "Sales Manager"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Michael Suyama" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Robert King" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Laura Callahan" to h0
Set ComCellValue of hoItems h0 1 to "Inside Sales Coordinator"
Set ComCellValue of hoItems h0 2 to "Seattle"
Get ComAddItem of hoItems "Anne Dodsworth" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
627
|
Is it possible to list only items that ends with any of specified strings
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to True
Set ComContinueColumnScroll to False
Set ComFocusColumnIndex to 1
Set ComMarkSearchColumn to False
Set ComSearchColumnIndex to 1
Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible
Set ComFilterBarPromptType to OLEexFilterPromptEndWith
Set ComFilterBarPromptColumns to "0"
Set ComFilterBarPromptPattern to "Fuller"
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Name" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 96
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Title" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComWidth of hoColumn1 to 96
Send Destroy to hoColumn1
Get ComAdd of hoColumns "City" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h0
Get ComAddItem of hoItems "Nancy Davolio" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Seattle"
Get ComAddItem of hoItems "Andrew Fuller" to h0
Set ComCellValue of hoItems h0 1 to "Vice President, Sales"
Set ComCellValue of hoItems h0 2 to "Tacoma"
Set ComSelectItem of hoItems h0 to True
Get ComAddItem of hoItems "Janet Leverling" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Kirkland"
Get ComAddItem of hoItems "Margaret Peacock" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Redmond"
Get ComAddItem of hoItems "Steven Buchanan" to h0
Set ComCellValue of hoItems h0 1 to "Sales Manager"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Michael Suyama" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Robert King" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Laura Callahan" to h0
Set ComCellValue of hoItems h0 1 to "Inside Sales Coordinator"
Set ComCellValue of hoItems h0 2 to "Seattle"
Get ComAddItem of hoItems "Anne Dodsworth" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
626
|
Is it possible to list only items that starts with any of specified strings
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to True
Set ComContinueColumnScroll to False
Set ComFocusColumnIndex to 1
Set ComMarkSearchColumn to False
Set ComSearchColumnIndex to 1
Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible
Set ComFilterBarPromptType to OLEexFilterPromptStartWith
Set ComFilterBarPromptColumns to "0"
Set ComFilterBarPromptPattern to "An M"
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Name" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 96
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Title" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComWidth of hoColumn1 to 96
Send Destroy to hoColumn1
Get ComAdd of hoColumns "City" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h0
Get ComAddItem of hoItems "Nancy Davolio" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Seattle"
Get ComAddItem of hoItems "Andrew Fuller" to h0
Set ComCellValue of hoItems h0 1 to "Vice President, Sales"
Set ComCellValue of hoItems h0 2 to "Tacoma"
Set ComSelectItem of hoItems h0 to True
Get ComAddItem of hoItems "Janet Leverling" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Kirkland"
Get ComAddItem of hoItems "Margaret Peacock" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Redmond"
Get ComAddItem of hoItems "Steven Buchanan" to h0
Set ComCellValue of hoItems h0 1 to "Sales Manager"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Michael Suyama" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Robert King" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Laura Callahan" to h0
Set ComCellValue of hoItems h0 1 to "Inside Sales Coordinator"
Set ComCellValue of hoItems h0 2 to "Seattle"
Get ComAddItem of hoItems "Anne Dodsworth" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
625
|
Is it possible to list only items that starts with specified string
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to True
Set ComContinueColumnScroll to False
Set ComFocusColumnIndex to 1
Set ComMarkSearchColumn to False
Set ComSearchColumnIndex to 1
Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible
Set ComFilterBarPromptType to OLEexFilterPromptStartWith
Set ComFilterBarPromptColumns to "0"
Set ComFilterBarPromptPattern to "A"
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Name" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 96
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Title" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComWidth of hoColumn1 to 96
Send Destroy to hoColumn1
Get ComAdd of hoColumns "City" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h0
Get ComAddItem of hoItems "Nancy Davolio" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Seattle"
Get ComAddItem of hoItems "Andrew Fuller" to h0
Set ComCellValue of hoItems h0 1 to "Vice President, Sales"
Set ComCellValue of hoItems h0 2 to "Tacoma"
Set ComSelectItem of hoItems h0 to True
Get ComAddItem of hoItems "Janet Leverling" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Kirkland"
Get ComAddItem of hoItems "Margaret Peacock" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Redmond"
Get ComAddItem of hoItems "Steven Buchanan" to h0
Set ComCellValue of hoItems h0 1 to "Sales Manager"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Michael Suyama" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Robert King" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Laura Callahan" to h0
Set ComCellValue of hoItems h0 1 to "Inside Sales Coordinator"
Set ComCellValue of hoItems h0 2 to "Seattle"
Get ComAddItem of hoItems "Anne Dodsworth" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
624
|
How can I specify that the list should include any of the seqeunces in the pattern
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to True
Set ComContinueColumnScroll to False
Set ComFocusColumnIndex to 1
Set ComMarkSearchColumn to False
Set ComSearchColumnIndex to 1
Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible
Set ComFilterBarPromptType to OLEexFilterPromptContainsAny
Set ComFilterBarPromptPattern to "london seattle"
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Name" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 96
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Title" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComWidth of hoColumn1 to 96
Send Destroy to hoColumn1
Get ComAdd of hoColumns "City" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h0
Get ComAddItem of hoItems "Nancy Davolio" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Seattle"
Get ComAddItem of hoItems "Andrew Fuller" to h0
Set ComCellValue of hoItems h0 1 to "Vice President, Sales"
Set ComCellValue of hoItems h0 2 to "Tacoma"
Set ComSelectItem of hoItems h0 to True
Get ComAddItem of hoItems "Janet Leverling" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Kirkland"
Get ComAddItem of hoItems "Margaret Peacock" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Redmond"
Get ComAddItem of hoItems "Steven Buchanan" to h0
Set ComCellValue of hoItems h0 1 to "Sales Manager"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Michael Suyama" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Robert King" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Laura Callahan" to h0
Set ComCellValue of hoItems h0 1 to "Inside Sales Coordinator"
Set ComCellValue of hoItems h0 2 to "Seattle"
Get ComAddItem of hoItems "Anne Dodsworth" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
623
|
How can I specify that all sequences in the filter pattern must be included in the list
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to True
Set ComContinueColumnScroll to False
Set ComFocusColumnIndex to 1
Set ComMarkSearchColumn to False
Set ComSearchColumnIndex to 1
Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible
Set ComFilterBarPromptType to OLEexFilterPromptContainsAll
Set ComFilterBarPromptPattern to "london manager"
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Name" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 96
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Title" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComWidth of hoColumn1 to 96
Send Destroy to hoColumn1
Get ComAdd of hoColumns "City" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h0
Get ComAddItem of hoItems "Nancy Davolio" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Seattle"
Get ComAddItem of hoItems "Andrew Fuller" to h0
Set ComCellValue of hoItems h0 1 to "Vice President, Sales"
Set ComCellValue of hoItems h0 2 to "Tacoma"
Set ComSelectItem of hoItems h0 to True
Get ComAddItem of hoItems "Janet Leverling" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Kirkland"
Get ComAddItem of hoItems "Margaret Peacock" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Redmond"
Get ComAddItem of hoItems "Steven Buchanan" to h0
Set ComCellValue of hoItems h0 1 to "Sales Manager"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Michael Suyama" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Robert King" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Laura Callahan" to h0
Set ComCellValue of hoItems h0 1 to "Inside Sales Coordinator"
Set ComCellValue of hoItems h0 2 to "Seattle"
Get ComAddItem of hoItems "Anne Dodsworth" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
622
|
How do I change at runtime the filter prompt
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to True
Set ComContinueColumnScroll to False
Set ComFocusColumnIndex to 1
Set ComMarkSearchColumn to False
Set ComSearchColumnIndex to 1
Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible
Set ComFilterBarPromptPattern to "london manager"
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Name" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 96
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Title" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComWidth of hoColumn1 to 96
Send Destroy to hoColumn1
Get ComAdd of hoColumns "City" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h0
Get ComAddItem of hoItems "Nancy Davolio" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Seattle"
Get ComAddItem of hoItems "Andrew Fuller" to h0
Set ComCellValue of hoItems h0 1 to "Vice President, Sales"
Set ComCellValue of hoItems h0 2 to "Tacoma"
Set ComSelectItem of hoItems h0 to True
Get ComAddItem of hoItems "Janet Leverling" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Kirkland"
Get ComAddItem of hoItems "Margaret Peacock" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Redmond"
Get ComAddItem of hoItems "Steven Buchanan" to h0
Set ComCellValue of hoItems h0 1 to "Sales Manager"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Michael Suyama" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Robert King" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Laura Callahan" to h0
Set ComCellValue of hoItems h0 1 to "Inside Sales Coordinator"
Set ComCellValue of hoItems h0 2 to "Seattle"
Get ComAddItem of hoItems "Anne Dodsworth" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
621
|
How do I specify to filter only a single column when using the filter prompt
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to True
Set ComContinueColumnScroll to False
Set ComFocusColumnIndex to 1
Set ComMarkSearchColumn to False
Set ComSearchColumnIndex to 1
Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible
Set ComFilterBarPromptColumns to "2,3"
Set ComFilterBarPromptPattern to "london"
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Name" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 96
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Title" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComWidth of hoColumn1 to 96
Send Destroy to hoColumn1
Get ComAdd of hoColumns "City" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h0
Get ComAddItem of hoItems "Nancy Davolio" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Seattle"
Get ComAddItem of hoItems "Andrew Fuller" to h0
Set ComCellValue of hoItems h0 1 to "Vice President, Sales"
Set ComCellValue of hoItems h0 2 to "Tacoma"
Set ComSelectItem of hoItems h0 to True
Get ComAddItem of hoItems "Janet Leverling" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Kirkland"
Get ComAddItem of hoItems "Margaret Peacock" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Redmond"
Get ComAddItem of hoItems "Steven Buchanan" to h0
Set ComCellValue of hoItems h0 1 to "Sales Manager"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Michael Suyama" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Robert King" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Laura Callahan" to h0
Set ComCellValue of hoItems h0 1 to "Inside Sales Coordinator"
Set ComCellValue of hoItems h0 2 to "Seattle"
Get ComAddItem of hoItems "Anne Dodsworth" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
620
|
How do I change the prompt or the caption being displayed in the filter bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to True
Set ComContinueColumnScroll to False
Set ComFocusColumnIndex to 1
Set ComMarkSearchColumn to False
Set ComSearchColumnIndex to 1
Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible
Set ComFilterBarPrompt to "changed"
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Name" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 96
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Title" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComWidth of hoColumn1 to 96
Send Destroy to hoColumn1
Get ComAdd of hoColumns "City" to Nothing
Send Destroy to hoColumns
Send ComEndUpdate
End_Procedure
|
|
619
|
How do I enable the filter prompt feature
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to True
Set ComContinueColumnScroll to False
Set ComFocusColumnIndex to 1
Set ComMarkSearchColumn to False
Set ComSearchColumnIndex to 1
Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Name" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 96
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Title" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComWidth of hoColumn1 to 96
Send Destroy to hoColumn1
Get ComAdd of hoColumns "City" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h0
Get ComAddItem of hoItems "Nancy Davolio" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Seattle"
Get ComAddItem of hoItems "Andrew Fuller" to h0
Set ComCellValue of hoItems h0 1 to "Vice President, Sales"
Set ComCellValue of hoItems h0 2 to "Tacoma"
Set ComSelectItem of hoItems h0 to True
Get ComAddItem of hoItems "Janet Leverling" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Kirkland"
Get ComAddItem of hoItems "Margaret Peacock" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "Redmond"
Get ComAddItem of hoItems "Steven Buchanan" to h0
Set ComCellValue of hoItems h0 1 to "Sales Manager"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Michael Suyama" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Robert King" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Get ComAddItem of hoItems "Laura Callahan" to h0
Set ComCellValue of hoItems h0 1 to "Inside Sales Coordinator"
Set ComCellValue of hoItems h0 2 to "Seattle"
Get ComAddItem of hoItems "Anne Dodsworth" to h0
Set ComCellValue of hoItems h0 1 to "Sales Representative"
Set ComCellValue of hoItems h0 2 to "London"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
618
|
How can I control the colors that can be applied to an EBN part
// Occurs when the user changes the cell's content.
Procedure OnComChange HITEM llItem Integer llColIndex Variant llNewValue
Forward Send OnComChange llItem llColIndex llNewValue
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComItemBackColor of hoItems (ComFirstVisibleItem(hoItems)) to llNewValue
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 2 "c:\exontrol\images\normal.ebn" to Nothing
Get ComAdd of hoAppearance 1 "CP:2 10 3 -10 -5" to Nothing
Send Destroy to hoAppearance
Set ComSelBackColor to (ComBackColor(Self))
Set ComSelForeColor to (ComForeColor(Self))
Set ComScrollBySingleLine to True
Set ComTreeColumnIndex to -1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Test" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 32
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "RGB" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Variant voEditor
Get ComEditor of hoColumn1 to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESliderType
Set ComOption of hoEditor OLEexSliderMax to 255
Set ComOption of hoEditor OLEexSliderWidth to -60
Send Destroy to hoEditor
Send Destroy to hoColumn1
Send Destroy to hoColumns
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant h
Get ComAddItem of hoItems1 "" to h
Set ComCellHAlignment of hoItems1 h 0 to OLECenterAlignment
Set ComItemDivider of hoItems1 h to 0
Set ComItemBackColor of hoItems1 h to |CI$1000000
Set ComItemHeight of hoItems1 h to 36
Set ComSelectableItem of hoItems1 h to False
Get ComInsertItem of hoItems1 0 1 "Red" to h
Set ComCellValue of hoItems1 h 1 to 255
Get ComInsertItem of hoItems1 0 255 "Green" to h
Set ComCellValue of hoItems1 h 1 to 255
Get ComInsertItem of hoItems1 0 65536 "Blue" to h
Set ComCellValue of hoItems1 h 1 to 255
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
617
|
I know this is fairly basic, but could you send me a sample that places a tree in the first column
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "heading" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Parent 1" to h
Get ComInsertItem of hoItems h "Child A" to Nothing
Get ComInsertItem of hoItems (ComInsertItem(hoItems,h,"Child B")) "GrandChild C" to Nothing
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Parent 2" to h
Get ComInsertItem of hoItems h "Child D" to Nothing
Get ComInsertItem of hoItems h "Child E" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
616
|
How can I get the caption of focused item
// Fired after a new item has been selected.
Procedure OnComSelectionChanged
Forward Send OnComSelectionChanged
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Showln "Handle" (ComFocusItem(hoItems)) "Caption" (ComCellCaption(hoItems,(ComFocusItem(hoItems)),0))
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Items" to Nothing
Send Destroy to hoColumns
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant h
Get ComAddItem of hoItems1 "R1" to h
Get ComInsertItem of hoItems1 h "Cell 1.1" to Nothing
Get ComInsertItem of hoItems1 h "Cell 1.2" to Nothing
Set ComExpandItem of hoItems1 h to True
Get ComAddItem of hoItems1 "R2" to h
Get ComInsertItem of hoItems1 h "Cell 2.1" to Nothing
Get ComInsertItem of hoItems1 h "Cell 2.2" to Nothing
Set ComExpandItem of hoItems1 h to True
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
615
|
How can I get the caption of selected item
// Fired after a new item has been selected.
Procedure OnComSelectionChanged
Forward Send OnComSelectionChanged
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Showln "Handle" (ComSelectedItem(hoItems,0)) "Caption" (ComCellCaption(hoItems,(ComSelectedItem(hoItems,0)),0))
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Items" to Nothing
Send Destroy to hoColumns
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant h
Get ComAddItem of hoItems1 "R1" to h
Get ComInsertItem of hoItems1 h "Cell 1.1" to Nothing
Get ComInsertItem of hoItems1 h "Cell 1.2" to Nothing
Set ComExpandItem of hoItems1 h to True
Get ComAddItem of hoItems1 "R2" to h
Get ComInsertItem of hoItems1 h "Cell 2.1" to Nothing
Get ComInsertItem of hoItems1 h "Cell 2.2" to Nothing
Set ComExpandItem of hoItems1 h to True
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
614
|
Is it possible to let users selects cells as in Excel
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComFullRowSelect to OLEexRectSel
Set ComSingleSel to False
Set ComReadOnly to OLEexReadOnly
Set ComMarkSearchColumn to False
Set ComShowFocusRect to False
Set ComLinesAtRoot to OLEexLinesAtRoot
Set ComSelForeColor to (RGB(0,0,0))
Set ComSelBackColor to (RGB(200,225,242))
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "A" to Nothing
Variant voColumn
Get ComAdd of hoColumns "B" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAllowSizing of hoColumn to False
Set ComWidth of hoColumn to 24
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "C" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComAllowSizing of hoColumn1 to False
Set ComWidth of hoColumn1 to 24
Set ComDef of hoColumn1 OLEexCellHasCheckBox to 1
Set ComPartialCheck of hoColumn1 to True
Send Destroy to hoColumn1
Variant voColumn2
Get ComAdd of hoColumns "D" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComAllowSizing of hoColumn2 to False
Set ComWidth of hoColumn2 to 24
Set ComDef of hoColumn2 OLEexCellHasRadioButton to 1
Send Destroy to hoColumn2
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComInsertItem of hoItems "Group 1" to h
Variant h1
Get ComInsertItem of hoItems h 16 to h1
Set ComCellValue of hoItems h1 1 to 17
Get ComInsertItem of hoItems h 2 to h1
Set ComCellValue of hoItems h1 1 to 11
Get ComInsertItem of hoItems h 2 to h1
Set ComItemBackColor of hoItems h1 to (RGB(240,240,240))
Set ComCellValue of hoItems h1 1 to 9
Set ComExpandItem of hoItems h to True
Get ComInsertItem of hoItems "Group 2" to h
Set ComCellValueFormat of hoItems h 2 to OLEexHTML
Get ComInsertItem of hoItems h 16 to h1
Set ComCellValue of hoItems h1 1 to 9
Get ComInsertItem of hoItems h 12 to h1
Set ComCellValue of hoItems h1 1 to 11
Get ComInsertItem of hoItems h 2 to h1
Set ComCellValue of hoItems h1 1 to 2
Set ComExpandItem of hoItems h to True
Set ComSelectItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
613
|
Is it possible to change the style for the vertical or horizontal grid lines, in the list area
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDrawGridLines to OLEexAllLines
Set ComGridLineStyle to (OLEexGridLinesVSolid + OLEexGridLinesHDot4)
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Get ComAdd of hoColumns2 "C3" to Nothing
Send Destroy to hoColumns2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Item 1" to h
Set ComCellValue of hoItems h 1 to "SubItem 1.2"
Set ComCellValue of hoItems h 2 to "SubItem 1.3"
Get ComAddItem of hoItems "Item 2" to h
Set ComCellValue of hoItems h 1 to "SubItem 2.2"
Set ComCellValue of hoItems h 2 to "SubItem 2.3"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
612
|
Is it possible to change the style for the grid lines, for instance to be solid not dotted
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDrawGridLines to OLEexAllLines
Set ComGridLineStyle to OLEexGridLinesSolid
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Send ComEndUpdate
End_Procedure
|
|
611
|
I have some buttons added on the control's scroll bar, how can I can know when the button is being clicked
// Occurs when the user clicks a button in the scrollbar.
Procedure OnComScrollButtonClick OLEScrollBarEnum llScrollBar OLEScrollPartEnum llScrollPart
Forward Send OnComScrollButtonClick llScrollBar llScrollPart
Showln llScrollBar llScrollPart
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComScrollPartVisible OLEexHScroll OLEexLeftB1Part to True
Set ComScrollPartVisible OLEexHScroll OLEexLeftB2Part to True
Set ComScrollPartVisible OLEexHScroll OLEexRightB6Part to True
Set ComScrollPartVisible OLEexHScroll OLEexRightB5Part to True
Set ComScrollBars to OLEexDisableNoHorizontal
End_Procedure
|
|
610
|
How do I get notified once the user clicks a hyperlink created using the anchor HTML tag
// Occurs when an anchor element is clicked.
Procedure OnComAnchorClick String llAnchorID String llOptions
Forward Send OnComAnchorClick llAnchorID llOptions
Showln llAnchorID llOptions
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Default" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueFormat to 1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "This is a link: <aex.com;1>www.exontrol.com</a>" to Nothing
Get ComAddItem of hoItems "This is a link: <aex.net;2>www.exontrol.net</a>" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
609
|
Is it possible to start editing a cell when double click it
// Occurs when the user dblclk the left mouse button over an object.
Procedure OnComDblClick Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComDblClick llShift llX llY
Send ComEdit Nothing
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAutoEdit to False
Set ComMarkSearchColumn to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Edit1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLEEditType
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Edit2" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Variant voEditor1
Get ComEditor of hoColumn1 to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComEditType of hoEditor1 to OLEEditType
Send Destroy to hoEditor1
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,1)) 1 to 2
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCellValue of hoItems1 (ComAddItem(hoItems1,3)) 1 to 4
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
608
|
Is it possible to disable standard single-click behavior for this column, so I manually could call Edit() when needed
// Occurs when the user dblclk the left mouse button over an object.
Procedure OnComDblClick Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComDblClick llShift llX llY
Send ComEdit Nothing
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAutoEdit to False
Set ComMarkSearchColumn to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Edit1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLEEditType
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Edit2" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Variant voEditor1
Get ComEditor of hoColumn1 to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComEditType of hoEditor1 to OLEEditType
Send Destroy to hoEditor1
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,1)) 1 to 2
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCellValue of hoItems1 (ComAddItem(hoItems1,3)) 1 to 4
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
607
|
How can I get or restore the old or previously value for the cell being changed
// Occurs when the user changes the cell's content.
Procedure OnComChange HITEM llItem Integer llColIndex Variant llNewValue
Forward Send OnComChange llItem llColIndex llNewValue
Variant v
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComCellValue of hoItems llItem llColIndex to v
Send Destroy to hoItems
Showln "Old-Value:" v
Showln "New-Value:" llNewValue
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComMarkSearchColumn to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Edit1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLEEditType
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Edit2" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Variant voEditor1
Get ComEditor of hoColumn1 to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComEditType of hoEditor1 to OLEEditType
Send Destroy to hoEditor1
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCellValue of hoItems1 (ComAddItem(hoItems1,1)) 1 to 2
Send Destroy to hoItems1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Set ComCellValue of hoItems2 (ComAddItem(hoItems2,3)) 1 to 4
Send Destroy to hoItems2
Send ComEndUpdate
End_Procedure
|
|
606
|
How can I get the item from the cursor
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Variant h
Get ComItemFromPoint -1 -1 c hit to h
Variant v
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComItemToIndex of hoItems h to v
Send Destroy to hoItems
Showln "Handle" h "Index" v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Set ComDrawGridLines to OLEexHLines
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Items" to Nothing
Send Destroy to hoColumns
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAddItem of hoItems1 "R1" to h
Get ComInsertItem of hoItems1 h "Cell 1.1" to Nothing
Get ComInsertItem of hoItems1 h "Cell 1.2" to Nothing
Set ComExpandItem of hoItems1 h to True
Get ComAddItem of hoItems1 "R2" to h
Get ComInsertItem of hoItems1 h "Cell 2.1" to Nothing
Get ComInsertItem of hoItems1 h "Cell 2.2" to Nothing
Set ComExpandItem of hoItems1 h to True
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
605
|
How can I get the column from the cursor, not only in the header
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Showln (ComColumnFromPoint(Self,-1,0))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "P1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "P2" to Nothing
Send Destroy to hoColumns1
Set ComDrawGridLines to OLEexAllLines
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "R1" to h
Set ComCellValue of hoItems h 1 to "R2"
Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Cell 1.1")) 1 to "Cell 1.2"
Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Cell 2.1")) 1 to "Cell 2.2"
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
604
|
How can I get the column from the cursor
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Showln (ComColumnFromPoint(Self,-1,-1))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Set ComDrawGridLines to OLEexAllLines
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "P1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "P2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "R1" to h
Set ComCellValue of hoItems h 1 to "R2"
Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Cell 1.1")) 1 to "Cell 1.2"
Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Cell 2.1")) 1 to "Cell 2.2"
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
603
|
How can I get the cell's caption from the cursor
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Variant h
Get ComItemFromPoint -1 -1 c hit to h
Variant v
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComCellCaption of hoItems h c to v
Send Destroy to hoItems
Showln v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Items" to Nothing
Send Destroy to hoColumns
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAddItem of hoItems1 "R1" to h
Get ComInsertItem of hoItems1 h "Cell 1.1" to Nothing
Get ComInsertItem of hoItems1 h "Cell 1.2" to Nothing
Set ComExpandItem of hoItems1 h to True
Get ComAddItem of hoItems1 "R2" to h
Get ComInsertItem of hoItems1 h "Cell 2.1" to Nothing
Get ComInsertItem of hoItems1 h "Cell 2.2" to Nothing
Set ComExpandItem of hoItems1 h to True
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
602
|
How can I customize the items based on the values in the cells
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComMarkSearchColumn to False
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "%1 >4" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBold of hoConditionalFormat to True
Set ComStrikeOut of hoConditionalFormat to True
Set ComForeColor of hoConditionalFormat to (RGB(255,0,0))
Set ComApplyTo of hoConditionalFormat to OLEexFormatToItems
Send Destroy to hoConditionalFormat
Variant voConditionalFormat1
Get ComAdd of hoConditionalFormats "%2 > 4" Nothing to voConditionalFormat1
Handle hoConditionalFormat1
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat1
Set pvComObject of hoConditionalFormat1 to voConditionalFormat1
Set ComBold of hoConditionalFormat1 to True
Set ComStrikeOut of hoConditionalFormat1 to True
Set ComForeColor of hoConditionalFormat1 to (RGB(255,0,0))
Set ComApplyTo of hoConditionalFormat1 to |CI$2
Send Destroy to hoConditionalFormat1
Variant voConditionalFormat2
Get ComAdd of hoConditionalFormats "%3 > 4" Nothing to voConditionalFormat2
Handle hoConditionalFormat2
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat2
Set pvComObject of hoConditionalFormat2 to voConditionalFormat2
Set ComBold of hoConditionalFormat2 to True
Set ComStrikeOut of hoConditionalFormat2 to True
Set ComForeColor of hoConditionalFormat2 to (RGB(255,0,0))
Set ComApplyTo of hoConditionalFormat2 to |CI$3
Send Destroy to hoConditionalFormat2
Send Destroy to hoConditionalFormats
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Name" to Nothing
Variant voColumn
Get ComAdd of hoColumns "A" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortType of hoColumn to OLESortNumeric
Set ComAllowSizing of hoColumn to False
Set ComWidth of hoColumn to 36
Set ComFormatColumn of hoColumn to "len(value) ? value + ' +'"
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESpinType
Send Destroy to hoEditor
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "B" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComSortType of hoColumn1 to OLESortNumeric
Set ComAllowSizing of hoColumn1 to False
Set ComWidth of hoColumn1 to 36
Set ComFormatColumn of hoColumn1 to "len(value) ? value + ' +'"
Variant voEditor1
Get ComEditor of hoColumn1 to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComEditType of hoEditor1 to OLESpinType
Send Destroy to hoEditor1
Send Destroy to hoColumn1
Variant voColumn2
Get ComAdd of hoColumns "C" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComSortType of hoColumn2 to OLESortNumeric
Set ComAllowSizing of hoColumn2 to False
Set ComWidth of hoColumn2 to 36
Set ComFormatColumn of hoColumn2 to "len(value) ? value + ' ='"
Variant voEditor2
Get ComEditor of hoColumn2 to voEditor2
Handle hoEditor2
Get Create (RefClass(cComEditor)) to hoEditor2
Set pvComObject of hoEditor2 to voEditor2
Set ComEditType of hoEditor2 to OLESpinType
Send Destroy to hoEditor2
Send Destroy to hoColumn2
Variant voColumn3
Get ComAdd of hoColumns "A+B+C" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComSortType of hoColumn3 to OLESortNumeric
Set ComAllowSizing of hoColumn3 to False
Set ComWidth of hoColumn3 to 64
Set ComComputedField of hoColumn3 to "%1+%2+%3"
Set ComFormatColumn of hoColumn3 to "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
Set ComDef of hoColumn3 OLEexCellValueFormat to 1
Send Destroy to hoColumn3
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Set ComCellValueFormat of hoItems h 4 to OLEexComputedField
Variant h1
Get ComInsertItem of hoItems h "Child 1" to h1
Set ComCellValue of hoItems h1 1 to 7
Set ComCellValue of hoItems h1 2 to 3
Set ComCellValue of hoItems h1 3 to 1
Get ComInsertItem of hoItems h "Child 2" to h1
Set ComCellValue of hoItems h1 1 to 2
Set ComCellValue of hoItems h1 2 to 5
Set ComCellValue of hoItems h1 3 to 12
Get ComInsertItem of hoItems h "Child 3" to h1
Set ComCellValue of hoItems h1 1 to 2
Set ComCellValue of hoItems h1 2 to 2
Set ComCellValue of hoItems h1 3 to 4
Get ComInsertItem of hoItems h "Child 4" to h1
Set ComCellValue of hoItems h1 1 to 2
Set ComCellValue of hoItems h1 2 to 9
Set ComCellValue of hoItems h1 3 to 4
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
601
|
Is it is possible to have a column computing values from other columns
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComMarkSearchColumn to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Name" to Nothing
Variant voColumn
Get ComAdd of hoColumns "A" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortType of hoColumn to OLESortNumeric
Set ComAllowSizing of hoColumn to False
Set ComWidth of hoColumn to 36
Set ComFormatColumn of hoColumn to "len(value) ? value + ' +'"
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESpinType
Send Destroy to hoEditor
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "B" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComSortType of hoColumn1 to OLESortNumeric
Set ComAllowSizing of hoColumn1 to False
Set ComWidth of hoColumn1 to 36
Set ComFormatColumn of hoColumn1 to "len(value) ? value + ' +'"
Variant voEditor1
Get ComEditor of hoColumn1 to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComEditType of hoEditor1 to OLESpinType
Send Destroy to hoEditor1
Send Destroy to hoColumn1
Variant voColumn2
Get ComAdd of hoColumns "C" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComSortType of hoColumn2 to OLESortNumeric
Set ComAllowSizing of hoColumn2 to False
Set ComWidth of hoColumn2 to 36
Set ComFormatColumn of hoColumn2 to "len(value) ? value + ' ='"
Variant voEditor2
Get ComEditor of hoColumn2 to voEditor2
Handle hoEditor2
Get Create (RefClass(cComEditor)) to hoEditor2
Set pvComObject of hoEditor2 to voEditor2
Set ComEditType of hoEditor2 to OLESpinType
Send Destroy to hoEditor2
Send Destroy to hoColumn2
Variant voColumn3
Get ComAdd of hoColumns "A+B+C" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComSortType of hoColumn3 to OLESortNumeric
Set ComAllowSizing of hoColumn3 to False
Set ComWidth of hoColumn3 to 64
Set ComComputedField of hoColumn3 to "%1+%2+%3"
Set ComFormatColumn of hoColumn3 to "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
Set ComDef of hoColumn3 OLEexCellValueFormat to 1
Send Destroy to hoColumn3
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Set ComCellValueFormat of hoItems h 4 to OLEexComputedField
Variant h1
Get ComInsertItem of hoItems h "Child 1" to h1
Set ComCellValue of hoItems h1 1 to 7
Set ComCellValue of hoItems h1 2 to 3
Set ComCellValue of hoItems h1 3 to 1
Get ComInsertItem of hoItems h "Child 2" to h1
Set ComCellValue of hoItems h1 1 to 2
Set ComCellValue of hoItems h1 2 to 5
Set ComCellValue of hoItems h1 3 to 12
Get ComInsertItem of hoItems h "Child 3" to h1
Set ComCellValue of hoItems h1 1 to 2
Set ComCellValue of hoItems h1 2 to 2
Set ComCellValue of hoItems h1 3 to 4
Get ComInsertItem of hoItems h "Child 4" to h1
Set ComCellValue of hoItems h1 1 to 2
Set ComCellValue of hoItems h1 2 to 9
Set ComCellValue of hoItems h1 3 to 4
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|